home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EXEC.SWG / 0024_Multiple DOS Calls.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  1KB  |  56 lines
  1. {
  2.   Coded By Frank Diacheysn Of Gemini Software
  3.  
  4.   FUNCTION MASSEXEC
  5.  
  6.   Input......: DOS Command Line(s)
  7.              :
  8.              :
  9.              :
  10.              :
  11.  
  12.   Output.....: Logical
  13.              :        TRUE  = No Errors During Execution
  14.              :        FALSE = Error Occured During Execution
  15.              :
  16.              :
  17.  
  18.   Example....: IF MASSEXEC('DIR,PAUSE') THEN
  19.              :   WriteLn('No Errors!')
  20.              : ELSE
  21.              :   WriteLn('DOS Error Occured!');
  22.              :
  23.  
  24.   Description: Execute One Or More DOS Program Calls
  25.              : (Seperate Calls With A Comma)
  26.              :
  27.              :
  28.              :
  29.  
  30. }
  31. FUNCTION MASSEXEC( S:STRING ):BOOLEAN;
  32. {$M $4000,0,0}
  33. VAR nCount : INTEGER;
  34. VAR ExS    : STRING;
  35. VAR Ch     : CHAR;
  36. BEGIN
  37.   REPEAT
  38.     nCount := 0;
  39.     ExS := '';
  40.     REPEAT
  41.       Inc(nCount);
  42.       Ch := S[nCount];
  43.       IF Ch <> ',' THEN
  44.         ExS := ExS + Ch;
  45.     UNTIL (Ch = ',') OR (nCount = Length(S));
  46.     IF POS(',',S)=0 THEN
  47.       S := ''
  48.     ELSE
  49.       DELETE(S,1,POS(',',S));
  50.     SWAPVECTORS;
  51.     EXEC( GETENV('COMSPEC'), '/C '+ ExS );
  52.     SWAPVECTORS;
  53.     MASSEXEC := DOSERROR = 0;
  54.   UNTIL S = '';
  55. END;
  56.